home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / unarced / languages / c-manual / lowlevelgraphics / example11.c < prev    next >
C/C++ Source or Header  |  1995-03-17  |  6KB  |  214 lines
  1. /* Example 11                                                    */
  2. /* This example demonstrate how to copy rectangular memory areas */
  3. /* with help of the blitter.                                     */
  4.  
  5.  
  6.  
  7. #include <intuition/intuition.h>
  8. #include <graphics/gfxbase.h>
  9. #include <graphics/gfxmacros.h>
  10.  
  11.  
  12. /* NOTE! We must include the file "gfxmacros.h" inorder to be able to */
  13. /* use the function (macro) SetDrPt().                                */
  14.  
  15.  
  16. #define WIDTH  320 /* 320 pixels wide (low resolution)             */
  17. #define HEIGHT 200 /* 200 lines high (non interlaced NTSC display) */ 
  18. #define DEPTH    2 /* 2 BitPlanes should be used, gives 4 colours. */
  19. #define COLOURS  4 /* 2^2 = 4                                      */
  20.  
  21.  
  22. struct IntuitionBase *IntuitionBase;
  23. struct GfxBase *GfxBase;
  24.  
  25.  
  26. struct View my_view;
  27. struct View *my_old_view;
  28. struct ViewPort my_view_port;
  29. struct RasInfo my_ras_info;
  30. struct BitMap my_bit_map;
  31. struct RastPort my_rast_port;
  32.  
  33.  
  34. UWORD my_color_table[] =
  35. {
  36.   0x000, /* Colour  0, Black      */
  37.   0x555, /* Colour  1, Dark grey  */
  38.   0x777, /* Colour  2, Grey       */
  39.   0x999, /* Colour  3, Light grey */
  40. };
  41.  
  42.  
  43. void clean_up();
  44. void main();
  45.  
  46.  
  47. void main()
  48. {
  49.   UWORD *pointer;
  50.   int loop;
  51.   int x, y;
  52.   
  53.  
  54.   /* Open the Intuition library: */
  55.   IntuitionBase = (struct IntuitionBase *)
  56.     OpenLibrary( "intuition.library", 0 );
  57.   if( !IntuitionBase )
  58.     clean_up( "Could NOT open the Intuition library!" );
  59.  
  60.   /* Open the Graphics library: */
  61.   GfxBase = (struct GfxBase *)
  62.     OpenLibrary( "graphics.library", 0 );
  63.   if( !GfxBase )
  64.     clean_up( "Could NOT open the Graphics library!" );
  65.  
  66.  
  67.   /* Save the current View, so we can restore it later: */
  68.   my_old_view = GfxBase->ActiView;
  69.  
  70.  
  71.   /* 1. Prepare the View structure, and give it a pointer to */
  72.   /*    the first ViewPort:                                  */
  73.   InitView( &my_view );
  74.   my_view.ViewPort = &my_view_port;
  75.  
  76.  
  77.   /* 2. Prepare the ViewPort structure, and set some important values: */
  78.   InitVPort( &my_view_port );
  79.   my_view_port.DWidth = WIDTH;         /* Set the width.                */
  80.   my_view_port.DHeight = HEIGHT;       /* Set the height.               */
  81.   my_view_port.RasInfo = &my_ras_info; /* Give it a pointer to RasInfo. */
  82.   my_view_port.Modes = NULL;           /* Low resolution.               */
  83.  
  84.  
  85.   /* 3. Get a colour map, link it to the ViewPort, and prepare it: */
  86.   my_view_port.ColorMap = (struct ColorMap *) GetColorMap( COLOURS );
  87.   if( my_view_port.ColorMap == NULL )
  88.     clean_up( "Could NOT get a ColorMap!" );
  89.  
  90.   /* Get a pointer to the colour map: */
  91.   pointer = (UWORD *) my_view_port.ColorMap->ColorTable;
  92.  
  93.   /* Set the colours: */
  94.   for( loop = 0; loop < COLOURS; loop++ )
  95.     *pointer++ = my_color_table[ loop ];
  96.  
  97.  
  98.   /* 4. Prepare the BitMap: */
  99.   InitBitMap( &my_bit_map, DEPTH, WIDTH, HEIGHT );
  100.  
  101.   /* Allocate memory for the Raster: */ 
  102.   for( loop = 0; loop < DEPTH; loop++ )
  103.   {
  104.     my_bit_map.Planes[ loop ] = (PLANEPTR) AllocRaster( WIDTH, HEIGHT );
  105.     if( my_bit_map.Planes[ loop ] == NULL )
  106.       clean_up( "Could NOT allocate enough memory for the raster!" );
  107.  
  108.     /* Clear the display memory with help of the Blitter: */
  109.     BltClear( my_bit_map.Planes[ loop ], RASSIZE( WIDTH, HEIGHT ), 0 );
  110.   }
  111.  
  112.   
  113.   /* 5. Prepare the RasInfo structure: */
  114.   my_ras_info.BitMap = &my_bit_map; /* Pointer to the BitMap structure.  */
  115.   my_ras_info.RxOffset = 0;         /* The top left corner of the Raster */
  116.   my_ras_info.RyOffset = 0;         /* should be at the top left corner  */
  117.                                     /* of the display.                   */
  118.   my_ras_info.Next = NULL;          /* Single playfield - only one       */
  119.                                     /* RasInfo structure is necessary.   */
  120.  
  121.   /* 6. Create the display: */
  122.   MakeVPort( &my_view, &my_view_port );
  123.   MrgCop( &my_view );
  124.  
  125.  
  126.   /* 7. Prepare the RastPort, and give it a pointer to the BitMap. */
  127.   InitRastPort( &my_rast_port );
  128.   my_rast_port.BitMap = &my_bit_map;
  129.   
  130.  
  131.   /* 8. Show the new View: */
  132.   LoadView( &my_view );
  133.  
  134.  
  135.   SetDrMd( &my_rast_port, JAM1 ); /* Use FgPen only.   */
  136.  
  137.   SetAPen( &my_rast_port, 1 );    /* Dark grey */
  138.   Move( &my_rast_port, 10, 10 );
  139.   Draw( &my_rast_port, 26, 10 );
  140.   Draw( &my_rast_port, 26, 26 );
  141.  
  142.   SetAPen( &my_rast_port, 3 );    /* Light grey */
  143.   Draw( &my_rast_port, 10, 26 );
  144.   Draw( &my_rast_port, 10, 10 );
  145.  
  146.   SetAPen( &my_rast_port, 2 );    /* Grey */
  147.   RectFill( &my_rast_port, 11, 11, 25, 25 );
  148.   WritePixel( &my_rast_port, 10, 10 );
  149.   WritePixel( &my_rast_port, 26, 26 );
  150.  
  151.   SetAPen( &my_rast_port, 1 );    /* Dark grey */
  152.   WritePixel( &my_rast_port, 13, 13 );
  153.   WritePixel( &my_rast_port, 23, 13 );
  154.   WritePixel( &my_rast_port, 23, 23 );
  155.   WritePixel( &my_rast_port, 13, 23 );
  156.  
  157.  
  158.   /* We will now make 150 copies of the brick: */
  159.   for( x = 0; x < 15; x++ )
  160.     for( y = 0; y < 10; y++ )
  161.       BltBitMap(
  162.         &my_bit_map, /* Source                 */
  163.         10, 10,      /* Position, source.      */
  164.         &my_bit_map, /* Destination.           */
  165.         50 + 17 * x, /* Position, destination. */
  166.         10 + 17 * y, /*          - " -         */
  167.         17, 17,      /* Width and height.      */
  168.         0xC0,        /* Normal copy.           */
  169.         0xFF,        /* All bitplanes.         */
  170.         NULL );      /* No temporary storage.  */
  171.  
  172.  
  173.   /* Wait 20 seconds: */
  174.   Delay( 50 * 20 );
  175.  
  176.  
  177.   /* 9. Restore the old View: */
  178.   LoadView( my_old_view );
  179.  
  180.  
  181.   /* Free all allocated resources and leave. */
  182.   clean_up( "THE END" );
  183. }
  184.  
  185.  
  186. /* Returns all allocated resources: */
  187. void clean_up( message )
  188. STRPTR message;
  189. {
  190.   int loop;
  191.  
  192.   /* Free automatically allocated display structures: */
  193.   FreeVPortCopLists( &my_view_port );
  194.   FreeCprList( my_view.LOFCprList );
  195.   
  196.   /* Deallocate the display memory, BitPlane for BitPlane: */
  197.   for( loop = 0; loop < DEPTH; loop++ )
  198.     if( my_bit_map.Planes[ loop ] )
  199.       FreeRaster( my_bit_map.Planes[ loop ], WIDTH, HEIGHT );
  200.  
  201.   /* Deallocate the ColorMap: */
  202.   if( my_view_port.ColorMap ) FreeColorMap( my_view_port.ColorMap );
  203.  
  204.   /* Close the Graphics library: */
  205.   if( GfxBase ) CloseLibrary( GfxBase );
  206.  
  207.   /* Close the Intuition library: */
  208.   if( IntuitionBase ) CloseLibrary( IntuitionBase );
  209.  
  210.   /* Print the message and leave: */
  211.   printf( "%s\n", message ); 
  212.   exit();
  213. }
  214.